home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_02_(08-1984).d64 / first math (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  51 lines
  1. 2 REM:** FIRST MATH **
  2. 5 GOTO10
  3. 6 POKE1720,81:POKE1722,81:POKE1799,74:POKE1800,67:POKE1801,67
  4. 7 POKE1802,67:POKE1803,75
  5. 8 POKE55992,4:POKE55994,4:POKE56071,7:POKE56072,7:POKE56073,7:POKE56074,7
  6. 9 POKE56075,7:RETURN
  7. 10 POKE53280,7:POKE53281,6:PRINT"[147][159]F I R S T   M A T H":D=0
  8. 20 FORI=1TO2000:NEXTI
  9. 30 PRINT"[147]IF YOU WANT TO ADD, TYPE +
  10. 50 [153]"IF YOU WANT TO SUBTRACT, TYPE -
  11. 70 PRINT"IF YOU WANT TO MULTIPLY, TYPE *
  12. 72 [153]"IF YOU WANT TO DIVIDE, TYPE /
  13. 75 PRINT"YOUR CHOICE=?  ";
  14. 83 GETA$:IFA$=""THEN83
  15. 84 IFA$<>CHR$(42)ANDA$<>CHR$(43)ANDA$<>CHR$(45)ANDA$<>CHR$(47)THEN83
  16. 85 PRINT"[157]"A$:INPUT"HIGHEST NUMBER";UL:INPUT"LOWEST NUMBER";R1
  17. 89 IFR1=ULTHEN30
  18. 90 R=UL+1-R1
  19. 95 C=INT(RND(1)*R)+R1:B=INT(RND(1)*R)+R1
  20. 100 IFA$=CHR$(43)THENDEFFNA(X)=B+C:GOTO130
  21. 110 IFA$=CHR$(45)THENDEFFNA(X)=B-C:GOTO130
  22. 120 IFA$=CHR$(42)THENDEFFNA(X)=B*C:GOTO130
  23. 125 IFA$=CHR$(47)ANDC=0THEN95
  24. 130 IFA$=CHR$(47)ANDINT(B/C)<>B/CTHEN95
  25. 135 IFA$=CHR$(47)THENDEFFNA(X)=B/C
  26. 140 PRINT"[147] NUMBER OF CORRECT ANSWERS IN A ROW="D:IFD=10THEN295
  27. 180 E=FNA(X):PRINT:PRINT"";B;A$;C;"=";:INPUTF:IFF<>ETHEN250
  28. 210 PRINT"CORRECT!!
  29. 211 [141]6
  30. 219 [129]T[178]1[164]1000:[130]T:D[178]D[170]1:[139]D[178]10[167][153]"STOP":[137]140
  31. 240 [137]95
  32. 250 [153]"...THAT IS NOT CORRECT
  33. 260 PRINT"";B;A$;C;"=";E
  34. 261 POKE1720,81:POKE1722,81:POKE1799,85:POKE1800,67:POKE1801,67
  35. 263 POKE1802,67:POKE1803,73
  36. 265 POKE55992,4:POKE55994,4:POKE56071,7:POKE56072,7:POKE56073,7:POKE56074,7
  37. 267 POKE56075,7
  38. 270 FORT=1TO3500:NEXT:D=0:GOTO140
  39. 295 GOSUB6:POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  40. 299 POKE54272,220:FORT=120TO1STEP-1
  41. 301 POKE54273,T:POKE53281,T
  42. 304 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO120
  43. 309 POKE54273,T:POKE53280,T
  44. 312 FORT1=1TO5:NEXTT1:NEXTT
  45. 323 POKE54276,0:POKE54273,0:POKE54272,0
  46. 325 PRINT"PALY AGAIN (Y[146]/N[146] ) ? ";
  47. 327 GETA$:IFA$=""THEN327
  48. 328 IFA$="Y"THEN10
  49. 329 IFA$<>"N"THEN327
  50. 330 SYS2048:END
  51.